home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / comm / tcp / CobbWeb1.lha / CobbWeb_Install < prev    next >
Encoding:
Text File  |  1995-03-25  |  36.2 KB  |  1,366 lines
  1. ; $VER: CobbWeb_Install 0.1 (27.3.95)
  2. ; Script to install CobbWeb support files for Amiga TCP/IP
  3.  
  4. ; Main script logic starts at 'MAIN INSTALLATION' way below
  5.  
  6. (set AppVersion "0.1")
  7.  
  8. ; 0% complete
  9. (complete 0)
  10.  
  11. (set amigaCPU (database "cpu"))
  12. (set packages 0) ; assume nothing is to be installed
  13.  
  14. ;=============================================================================
  15. ; What packages need to be installed?
  16.  
  17. ; PPP setup I
  18. (set PPP_ver "1_30")
  19. (set PPP_reg (exists "S:PPP.key"))
  20. (debug "PPP_reg is: " PPP_reg)
  21. (set PPP_lha (cat "PPP" PPP_ver ".lha"))
  22. (debug "PPP_lha is: " PPP_lha)
  23. (set PPP_reglha (cat "PPP" PPP_ver "reg.lha"))
  24. (debug "PPP_reglha is: " PPP_reglha)
  25.  
  26. ; AmiTCP setup I
  27. (set TCP_ver "40")
  28. (set TCP_lha (cat "AmiTCP-demo-" TCP_ver ".lha"))
  29. (debug "TCP_lha is: " TCP_lha)
  30.  
  31. ; MUI setup I
  32. (set MUI_ver "23")
  33. (set MUI_reg (exists "S:MUI.key"))
  34. (debug "MUI_reg is: " MUI_reg)
  35. (set MUI_lha (cat "mui" MUI_ver "usr.lha"))
  36. (debug "MUI_lha is: " MUI_lha)
  37.  
  38. ; AMosaic setup I
  39. (set Mos_ver "1.2")
  40. (set Mos_lha (cat "Mosaic" Mos_ver "AmiTCP.lha"))
  41. (set Mos_pch "1.3beta")
  42. (set Mos_pch_lha (cat "AMosaic" Mos_pch "AmiTCP.lha"))
  43.  
  44. ; ZGIFDataType setup (Installed with Mosaic)
  45. (set GIF_ver "39.9")
  46. (set GIF_lha (cat "ZGIFDType" GIF_ver ".lha"))
  47.  
  48. ; AMS (Installed with Mosaic)
  49. (set AMS_lha "ams.lha")
  50.  
  51. ; EdPlay (Installed with Mosaic)
  52. (set ED_lha "edplay.lha")
  53.  
  54. ;******************************************************************
  55. ;******************* LANGUAGE INITIALIZATION **********************
  56. ;******************************************************************
  57.  
  58. ;=============================================================================
  59. ; Danish strings
  60.  
  61. (if (= @language "dansk")
  62. (
  63. (set default_lang 1)
  64. ))
  65.  
  66. ;=============================================================================
  67. ; German strings
  68.  
  69. (if (= @language "deutsch")
  70. (
  71. (set default_lang 2)
  72. ))
  73.  
  74. ;=============================================================================
  75. ; English strings
  76.  
  77. (if (= @language "english")
  78. (
  79. (set default_lang 4)
  80.  
  81. (set #bad-wb-ver
  82. (cat "\nAMosaic works best with Workbench 3.0 or greater."
  83. ))
  84.  
  85. (set #bad-kick-ver
  86. (cat "You must be using at least Kickstart 2.04 to install these packages."
  87. ))
  88.  
  89. (set #message-intro
  90. (cat "\nThis program installs TCP/IP software on your Amiga hard "
  91.      "drive.  The following freely redistributable software packages "
  92.      "are installed:\n\n"
  93.           PPP_lha " by Holger Kruse\n"
  94.           TCP_lha " by NDSi\n"
  95.           MUI_lha " by Stefan Stuntz\n"
  96.           Mos_lha " by Fischer, Witbrock & Meyer\n"
  97.           GIF_lha " by Michael Zucchi\n"
  98.           AMS_lha " by David N. Junod\n"
  99.           ED_lha  " by Ed\n"
  100.           "\n"
  101. ))
  102.  
  103. (set #welcome-help
  104. (cat ("CobbWeb installation script version %s\n\n" AppVersion)
  105. ))
  106.  
  107. (set #askdir-prompt-CobbWeb
  108. (cat "A directory named CobbWeb will be created.  All of the "
  109.      "packages will be installed in this directory.  Where would "
  110.      "you like me to create this directory?"
  111. ))
  112.  
  113. (set #askdir-help-CobbWeb
  114. (cat "Press \"Show Drives\" to get a list of available volumes.  Select "
  115.      "the volume to use for this installation.  You may also select "
  116.      "a drawer on that volume.  Then press \"Proceed\".  The CobbWeb "
  117.      "drawer will be created in the directory you specify.\n\n"
  118.      @askdir-help
  119. ))
  120.  
  121. (set #delete-CobbWeb_file-prompt
  122. (cat "A file named CobbWeb has been detected.  I am deleting this file "
  123.      " so that a directory of the same name can be created."
  124. ))
  125.  
  126. (set #delete-CobbWeb_file-help
  127. (cat #delete-CobbWeb_file-prompt
  128. ))
  129.  
  130. (set #makedir-CobbWeb_dir-prompt
  131. (cat "Making CobbWeb directory.\n"
  132. ))
  133.  
  134. (set #makedir-CobbWeb_dir-help
  135. (cat #makedir-CobbWeb_dir-prompt
  136.      @makedir-help
  137. ))
  138.  
  139. (set #askfile-ppp-lha-prompt
  140. (cat "I cannot find the PPP archive (.lha) file.  Please select the file I should use.\n"
  141. ))
  142.  
  143. (set #askfile-ppp-lha-help
  144. (cat #askfile-ppp-lha-prompt
  145. ))
  146.  
  147. (set #askfile-tcp-lha-prompt
  148. (cat "I cannot find the AmiTCP archive (.lha) file.  Please select the file I should use.\n"
  149. ))
  150.  
  151. (set #askfile-tcp-lha-help
  152. (cat #askfile-tcp-lha-prompt
  153. ))
  154.  
  155. (set #askfile-mui-lha-prompt
  156. (cat "I cannot find the MUI archive (.lha) file.  Please select the file I should use.\n"
  157. ))
  158.  
  159. (set #askfile-mui-lha-help
  160. (cat #askfile-mui-lha-prompt
  161. ))
  162.  
  163. (set #askfile-mos12-lha-prompt
  164. (cat "I cannot find the Amiga Mosaic version 1.2 archive (.lha) file.  Please select the file I should use.\n"
  165. ))
  166.  
  167. (set #askfile-mos12-lha-help
  168. (cat #askfile-mos12-lha-prompt
  169. ))
  170.  
  171. (set #askfile-mos13-lha-prompt
  172. (cat "I cannot find the Amiga Mosaic version 1.3beta archive (.lha) file.  Please select the file I should use.\n"
  173. ))
  174.  
  175. (set #askfile-mos13-lha-help
  176. (cat #askfile-mos13-lha-prompt
  177. ))
  178.  
  179. (set #askfile-gif-lha-prompt
  180. (cat "I cannot find the ZGIF archive (.lha) file.  Please select the file I should use.\n"
  181. ))
  182.  
  183. (set #askfile-gif-lha-help
  184. (cat #askfile-gif-lha-prompt
  185. ))
  186.  
  187. (set #askfile-ams-lha-prompt
  188. (cat "I cannot find the AMS archive (.lha) file.  Please select the file I should use.\n"
  189. ))
  190.  
  191. (set #askfile-ams-lha-help
  192. (cat #askfile-ams-lha-prompt
  193. ))
  194.  
  195. (set #askfile-ed-lha-prompt
  196. (cat "I cannot find the EdPlay archive (.lha) file.  Please select the file I should use.\n"
  197. ))
  198.  
  199. (set #askfile-ed-lha-help
  200. (cat #askfile-ed-lha-prompt
  201. ))
  202.  
  203. (set #askoptions-packages-prompt
  204. (cat "\n"
  205.      "Which packages would you like to have installed? "
  206.      "All of these pacakges are needed "
  207.      "for a fully functional TCP/IP environment."
  208. ))
  209.  
  210. (set #askoptions-packages-help
  211. (cat  "Check the boxes of the packages you wish "
  212.      "to have available on your system."
  213.      "\n\n"
  214.      "PPP - This is the PPP package by Holger Kruse.  "
  215.      "By selecting this package ppp.device, ppp0.config "
  216.      "and a sample dialscript will be installed. "
  217.      "If you already have a registration key, the "
  218.      "registered version will be installed."
  219.      "\n\n"
  220.      "AmiTCP - This is the demo AmiTCP package by NSDI.  "
  221.      "By selecting this package the full TCP/IP suite "
  222.      "will be installed. The AmiTCP Installation script "
  223.      "will be run, and you will have to provide information "
  224.      "about your TCP/IP setup.  This information should be "
  225.      "availble from your Internet provider. "
  226.      "\n\n"
  227.      "MUI - This is the Magic User Interface package by Stephan Stunz.  "
  228.      "This is required in order to run Amiga Mosaic. "
  229.      "By selecting this package the 2.2 MUI user files "
  230.      "will be installed. "
  231.      "\n\n"
  232.      "AMosaic - This is the Amiga Mosaic package by Fischer, Witbrock & Meyer.  "
  233.      "By selecting this package the 1.2 version of Amiga Mosaic will first be "
  234.      "installed to provide a full set of documentation.  Then the 1.3beta version "
  235.      "of AMosaic alone will be installed.  In addition, several datatype support packages "
  236.      "will be installed."
  237.      "\n\n"
  238.      @askoptions-help
  239. ))
  240.  
  241. (set #working-makedir-ppp
  242. (cat "Creating PPP directory %s..."
  243. ))
  244.  
  245. (set #makedir-PPP_dir-prompt
  246. (cat "Making CobbWeb/PPP subdirectory.\n\n"
  247. ))
  248.  
  249. (set #makedir-PPP_dir-help
  250. (cat #makedir-PPP_dir-prompt
  251.      @makedir-help
  252. ))
  253.  
  254. (set #working-unarchive-ppp
  255. (cat "Unarchiving PPP to %s directory..."
  256. ))
  257.  
  258. (set #working-unarchive-ppp-reg
  259. (cat "Unarchiving PPP registered version to %s directory..."
  260. ))
  261.  
  262. (set #working-copying-ppp-device
  263. (cat "Copying ppp.device..."
  264. ))
  265.  
  266. (set #copylib-pppdevice-prompt
  267. (cat "Copying ppp.device to devs:networks..."
  268. ))
  269.  
  270. (set #copylib-pppdevice-help
  271. (cat #copylib-pppdevice-prompt
  272. ))
  273.  
  274. (set #working-checking-serial-device
  275. (cat "Checking serial.device..."
  276. ))
  277.  
  278. (set #askfile-serial-device-prompt
  279. (cat "Please select the serial device driver you want to use with PPP.\n"
  280. ))
  281.  
  282. (set #askfile-serial-device-help
  283. (cat #askfile-serial-device-prompt
  284.      @askfile-help
  285. ))
  286.  
  287. (set #working-checking-serial-unit
  288. (cat "Checking serial.device unit number..."
  289. ))
  290.  
  291. (set #asknumber-serial-unit-prompt
  292. (cat "Please select the serial device unit number you want to use with PPP.\n"
  293. ))
  294.  
  295. (set #asknumber-serial-unit-help
  296. (cat #asknumber-serial-unit-prompt
  297.      @asknumber-help
  298. ))
  299.  
  300. (set #working-checking-serial-baud
  301. (cat "Checking serial.device baud rate..."
  302. ))
  303.  
  304. (set #asknumber-serial-baud-prompt
  305. (cat "Please select the serial device baud rate you want to use with PPP.\n"
  306.      "It is advisable to start with a low baud rate like 9600 while setting things up.\n"
  307. ))
  308.  
  309. (set #asknumber-serial-baud-help
  310. (cat #asknumber-serial-baud-prompt
  311.      @asknumber-help
  312. ))
  313.  
  314. (set #working-creating-ppp-config
  315. (cat "Creating the ppp0.config file..."
  316. ))
  317.  
  318. (set #textfile-ppp-config-prompt
  319. (cat "Creating ppp0.config file.\n"
  320. ))
  321.  
  322. (set #textfile-ppp-config-help
  323. (cat #textfile-ppp-config-prompt
  324. ))
  325.  
  326. (set #working-copying-ppp-config
  327. (cat "Copying the ppp0.config file to envarc:..."
  328. ))
  329.  
  330. (set #copyfiles-ppp-config-prompt
  331. (cat "Copying ppp0.config file to envarc:.\n"
  332. ))
  333.  
  334. (set #copyfiles-ppp-config-help
  335. (cat #copyfiles-ppp-config-prompt
  336. ))
  337.  
  338. (set #working-copying-dialscript
  339. (cat "Copying the dialscript file..."
  340. ))
  341.  
  342. (set #copyfiles-dialscript-prompt
  343. (cat "Copying dialscript file...\n"
  344. ))
  345.  
  346. (set #copyfiles-dialscript-help
  347. (cat "This is a sample dialscript file used by PPP. "
  348.      "After the installation, you will have to modify "
  349.      "this file to accomodate your modem and the "
  350.      "connection parameters required by your service "
  351.      "provider.  This file is stored in the CobbWeb:PPP "
  352.      "directory."
  353. ))
  354.  
  355. (set #working-creating-chapfile
  356. (cat "Creating the chapfile..."
  357. ))
  358.  
  359. (set #textfile-ppp-chapfile-prompt
  360. (cat "Creating PPP chapfile file.\n"
  361. ))
  362.  
  363. (set #textfile-ppp-chapfile-help
  364. (cat #textfile-ppp-chapfile-prompt
  365. ))
  366.  
  367. (set #working-unarchive-tcp
  368. (cat "Unarchiving AmiTCP to %s directory..."
  369. ))
  370.  
  371. (set #working-copyfiles-installer
  372. (cat "Copying newest installer to %s directory..."
  373. ))
  374.  
  375. (set #copyfiles-AmiInstaller-prompt
  376. (cat "Replacing Installer with newer Installer program...\n"
  377. ))
  378.  
  379. (set #copyfiles-AmiInstaller-help
  380. (cat "The Installer program supplied with AmiTCP is version "
  381.      "1.24.  I am replacing this with a newer version. "
  382. ))
  383.  
  384. (set #message-AmiTCP-installer
  385. (cat "\n"
  386.      "AmiTCP has it's own Installer script.  It "
  387.      "installs and configures AmiTCP.  When it asks you where "
  388.      "to install AmiTCP, accept the default directory.  It also "
  389.      "asks you questions about your AmiTCP configuration including "
  390.      "what users will be on your system and what "
  391.      "IP addresses will be used.  Refer to the information suppied by your "
  392.      "internet provider to answer these questions.  "
  393.      "You will need to run the AmiTCP installation after completing this installation."
  394. ; "I will wait in the "
  395. ; "background while the AmiTCP Installer script is executing..."
  396. ))
  397.  
  398. (set #working-fixing-interfaces
  399. (cat "Copying ixemul.library to libs: directory..."
  400. ))
  401.  
  402. (set #working-copylib-ixemul
  403. (cat "Copying ixemul.library to libs: directory..."
  404. ))
  405.  
  406. (set #copylib-ixemul-prompt
  407. (cat "I need to copy ixemul.library to your libs: directory. "
  408.      "Since this is a commonly used library I will leave it. "
  409.      "However, you may delete if later if you wish."
  410. ))
  411.  
  412. (set #copylib-ixemul-help
  413. (cat "I will copy ixemul.library to your libs: directory "
  414.      "only if you have an older version."
  415. ))
  416.  
  417. (set #working-makeassign-tmp
  418. (cat "making tmp: assignment..."
  419. ))
  420.  
  421. (set #working-patching-startnet
  422. (cat "Patching the AmiTCP startnet script..."
  423. ))
  424.  
  425. (set #working-patching-startnet
  426. (cat "Patching the AmiTCP stopnet script..."
  427. ))
  428.  
  429. (set #working-fixing-protection
  430. (cat "Fixing the protection bits on the AmiTCP stopnet and netstat scripts..."
  431. ))
  432.  
  433. (set #working-unarchive-mui
  434. (cat "Unarchiving MUI to %s directory..."
  435. ))
  436.  
  437. (set #copyfiles-MUIInstaller-prompt
  438. (cat "Replacing Installer with newer Installer program...\n"
  439. ))
  440.  
  441. (set #copyfiles-MUIInstaller-help
  442. (cat "The Installer program supplied with MUI is version "
  443.      "1.24.  I am replacing this with a newer version. "
  444. ))
  445.  
  446. (set #working-startup-mui
  447. (cat "Adding lines to your user-startup for MUI..."
  448. ))
  449.  
  450. (set #working-makedir-mos
  451. (cat "Creating directory %s..."
  452. ))
  453.  
  454. (set #makedir-mos-prompt
  455. (cat "Making Amiga Mosaic subdirectory.\n"
  456. ))
  457.  
  458. (set #makedir-mos-help
  459. (cat #makedir-mos-prompt
  460.      @makedir-help
  461. ))
  462.  
  463. (set #working-unarchive-mos12
  464. (cat "Unarchiving Mosaic version 1.2 to %s directory..."
  465. ))
  466.  
  467. (set #working-unarchive-mos13
  468. (cat "Unarchiving Mosaic version 1.3beta to %s directory..."
  469. ))
  470.  
  471. (set #working-copying-mos-envarc
  472. (cat "Copying contents of Mosaic's envarc subdirectory to envarc:..."
  473. ))
  474.  
  475. (set #copyfiles-mos-envarc-prompt
  476. (cat "Copying content's of Mosaic's envarc subdirectory to envarc:...\n"
  477. ))
  478.  
  479. (set #copyfiles-mos-envarc-help
  480. (cat #copyfiles-mos-envarc-prompt
  481. ))
  482.  
  483. (set #working-copying-mos-env
  484. (cat "Copying contents of Mosaic's envarc subdirectory to env:..."
  485. ))
  486.  
  487. (set #copyfiles-mos-env-prompt
  488. (cat "Copying content's of Mosaic's envarc subdirectory to env:...\n"
  489. ))
  490.  
  491. (set #copyfiles-mos-env-help
  492. (cat #copyfiles-mos-env-prompt
  493. ))
  494.  
  495. (set #working-copying-mos-rexx
  496. (cat "Copying contents of Mosaic's rexx subdirectory to rexx:..."
  497. ))
  498.  
  499. (set #copyfiles-mos-rexx-prompt
  500. (cat "Copying content's of Mosaic's rexx subdirectory to rexx:...\n"
  501. ))
  502.  
  503. (set #copyfiles-mos-rexx-help
  504. (cat #copyfiles-mos-rexx-prompt
  505. ))
  506.  
  507. (set #working-unarchive-zgif
  508. (cat "Unarchiving ZGIFDType39.9.lha..."
  509. ))
  510.  
  511. (set #working-unarchive-ams
  512. (cat "Unarchiving ams.lha..."
  513. ))
  514.  
  515. (set #working-copylib-ams
  516. (cat "Copying ams.lha files..."
  517. ))
  518.  
  519. (set #copylib-sunau-prompt
  520. (cat "Copying sunau.datatype..."
  521. ))
  522.  
  523. (set #copylib-sunau-help
  524. (cat #copylib-sunau-prompt
  525. ))
  526.  
  527. (set #copylib-xbm-prompt
  528. (cat "Copying xbm.datatype..."
  529. ))
  530.  
  531. (set #copylib-xbm-help
  532. (cat #copylib-xbm-prompt
  533. ))
  534.  
  535. (set #copylib-pic-prompt
  536. (cat "Copying pic.datatype..."
  537. ))
  538.  
  539. (set #copylib-pic-help
  540. (cat #copylib-pic-prompt
  541. ))
  542.  
  543. (set #copylib-ams-prompt
  544. (cat "Copying datatypes directory..."
  545. ))
  546.  
  547. (set #copylib-ams-help
  548. (cat #copylib-ams-prompt
  549. ))
  550.  
  551. (set #working-unarchive-ams
  552. (cat "Unarchiving EdPlay.lha..."
  553. ))
  554.  
  555. (set #startup-add-path-prompt
  556. (cat "Adding startup definitions to your s:user-startup file."
  557. ))
  558.  
  559. (set #startup-add-path-help
  560. (cat #startup-add-path-prompt
  561. ))
  562.  
  563. ))
  564.  
  565.  
  566. ;=============================================================================
  567. ; Spanish strings
  568.  
  569. (if (= @language "español")
  570. (
  571. (set default_lang 8)
  572. ))
  573.  
  574.  
  575. ;=============================================================================
  576. ; French strings
  577.  
  578. (if (= @language "français")
  579. (
  580. (set default_lang 16)
  581. ))
  582.  
  583.  
  584. ;=============================================================================
  585. ; Italian strings
  586.  
  587. (if (= @language "italiano")
  588. (
  589. (set default_lang 32)
  590. ))
  591.  
  592.  
  593. ;=============================================================================
  594. ; Dutch strings
  595.  
  596. (if (= @language "nederlands")
  597. (
  598. (set default_lang 64)
  599. ))
  600.  
  601.  
  602. ;=============================================================================
  603. ; Norwegian strings
  604.  
  605. (if (= @language "norsk")
  606. (
  607. (set default_lang 128)
  608. ))
  609.  
  610.  
  611. ;=============================================================================
  612. ; Portugues strings
  613.  
  614. (if (= @language "português")
  615. (
  616. (set default_lang 256)
  617. ))
  618.  
  619.  
  620. ;=============================================================================
  621. ; Swedish strings
  622.  
  623. (if (= @language "svenska")
  624. (
  625. (set default_lang 512)
  626. ))
  627.  
  628.  
  629. ;******************************************************************
  630. ;******************* COBBWEB INSTALLTION SCRIPT *******************
  631. ;******************************************************************
  632.  
  633.  
  634. ;==============================================================================
  635. ; make sure we are running under at least Kick 2.04 (ver 36) and WB 2.1 (ver 38)
  636.  
  637. ; remember original user level from command line
  638. (set user_level @user-level)
  639.  
  640. ; set expert mode so users will see the next message on error
  641. (user 2)
  642.  
  643. (set WB_ver (/ (getversion "libs:version.library") 65536))
  644. (debug "WB_ver is: " WB_ver)
  645. (if (< WB_ver 39)
  646. (
  647.     (message #bad-wb-ver)
  648. ))
  649.  
  650. (set KS_ver (/ (getversion) 65536))
  651. (debug "KS_ver is: " KS_ver)
  652. (if (< KS_ver 36)
  653. (
  654.     (abort #bad-kick-ver)
  655. ))
  656.  
  657. ;=============================================================================
  658. ; where are we executing from?
  659.  
  660. ; what directory are we installing from?
  661. (set sourcePath (expandpath (pathonly @icon)))
  662. (if (= "" sourcePath)
  663.    (abort "sourcePath undefined")
  664. )
  665.  
  666. ;=============================================================================
  667. ; clear global copy/delete options
  668.  
  669. ; clear options for copyfiles, copylib and delete
  670. ;    oknodelete -- aborts if can't copy unless reason was "delete protected"
  671. ;    askuser    -- if NOT in novice mode, ask user for permission to override file protection
  672. ;    force      -- unprotect destination, then delete (make default permission request 'yes')
  673. (delopts "oknodelete" "askuser" "force")
  674.  
  675. ;=============================================================================
  676. ; put up a little intro screen saying what we're doing
  677.  
  678. ; tell user what we're up to
  679. (message #message-intro)
  680. (user user_level) ; restore user level
  681.  
  682. ;=============================================================================
  683. ; put up standard welcome screen
  684.  
  685. ; now (instead of at beginning) put up welcome messaage
  686. ; this requests the user level from the user
  687. (user user_level)            ; restore default user level
  688. (welcome #welcome-help)
  689. (set user_level @user-level) ; remember what the user selected
  690.  
  691. ;=============================================================================
  692. ; decide what our best @default-dest installation directory should be
  693.  
  694. ; if CobbWeb: assignment already exists, use it
  695. (set @default-dest "CobbWeb:") ; default installation location
  696. (if (set CobbWeb_assign (getassign "CobbWeb"))
  697. (
  698.    (set @default-dest CobbWeb_assign) ; default installation location
  699. ))
  700. (debug "@default-dest is: " @default-dest)
  701.  
  702. ;=============================================================================
  703. ; let user make final decision on (parent of) @default-dest
  704.  
  705. ; query user for place to install (one level up from @default-dest)
  706. (set parentDir (pathonly @default-dest)) ; default installation location parent
  707. (debug "default parentDir is: " parentDir)
  708. (user 1)
  709. (set parentDir
  710.    (askdir (disk)
  711.       (prompt #askdir-prompt-CobbWeb)
  712.       (help #askdir-help-CobbWeb)
  713.       (disk)
  714.       (default parentDir) ; what heppens if the default doesn't exist on their machine?
  715.    )
  716. )
  717. (user user_level)
  718. (debug "final parentDir is: " parentDir)
  719. (set @default-dest (tackon parentDir "CobbWeb"))
  720. (set CobbWeb_dir @default-dest)
  721. (debug "CobbWeb_dir is: " CobbWeb_dir)
  722.  
  723. ;=============================================================================
  724. ; create CobbWeb_dir if necessary
  725.  
  726. ; is CobbWeb_dir currently a *file*? If so, delete it
  727. (if (= 1 (exists CobbWeb_dir (noreq))) ; its a file
  728. (
  729.    (debug "deleting file " CobbWeb_dir)
  730.    (user 2) ; force confirmation
  731.    (delete CobbWeb_dir
  732.       (prompt #delete-CobbWeb_file-prompt)
  733.       (help   #delete-CobbWeb_file-help)
  734.       (confirm)
  735.       (optional "force" "askuser")
  736.    )
  737.    (delete (cat CobbWeb_dir ".info")) ; just in case it exists
  738.    (user user_level) ; restore user level
  739. ))
  740.  
  741. (if (<> 2 (exists CobbWeb_dir (noreq))) ; its not a directory
  742. (
  743.    (debug "creating directory " CobbWeb_dir)
  744.    (makedir CobbWeb_dir
  745.       (prompt #makedir-CobbWeb_dir-prompt)
  746.       (help #makedir-CobbWeb_dir-help)
  747.       (confirm)
  748.       (infos)
  749.    )
  750. ))
  751.  
  752. ;=============================================================================
  753. ; What packages need to be installed?
  754.  
  755. ; PPP setup II
  756. (if (NOT (exists PPP_lha))
  757. (
  758.    (set PPP_lha 
  759.       (askfile 
  760.          (prompt #askfile-ppp-lha-prompt)
  761.          (help   #askfile-ppp-lha-help)
  762.          (default PPP_lha)
  763.       )
  764.    )
  765. ))
  766. (set PPP_dir (tackon CobbWeb_dir "PPP"))
  767. (debug "PPP_dir is: " PPP_dir)
  768. (set PPP_dialscript (tackon PPP_dir "dialscript"))
  769. (debug "PPP_dialscript is: " PPP_dialscript)
  770. (set PPP_chapfile (tackon PPP_dir "chapfile"))
  771. (debug "PPP_chapfile is: " PPP_chapfile)
  772. (set PPP_bit 1)
  773. (if (NOT (exists PPP_chapfile))
  774.    (set packages (BITOR packages PPP_bit))
  775. )
  776.  
  777. ; AmiTCP setup II
  778. (if (NOT (exists TCP_lha))
  779. (
  780.    (set TCP_lha 
  781.       (askfile 
  782.          (prompt #askfile-tcp-lha-prompt)
  783.          (help   #askfile-tcp-lha-help)
  784.          (default TCP_lha)
  785.       )
  786.    )
  787. ))
  788. (set TCP_dir (tackon CobbWeb_dir "AmiTCP-4.0"))
  789. (debug "TCP_dir is: " TCP_dir)
  790. (set TCP_interfaces (tackon TCP_dir "db/interfaces"))
  791. (debug "TCP_interfaces is: " TCP_interfaces)
  792. (set TCP_bit 2)
  793. (if (= (getsize (tackon TCP_dir "bin/stopnet")) 230)
  794.    (set packages (BITOR packages TCP_bit))
  795. )
  796.  
  797. ; MUI setup II
  798. (if (NOT (exists MUI_lha))
  799. (
  800.    (set MUI_lha 
  801.       (askfile 
  802.          (prompt #askfile-mui-lha-prompt)
  803.          (help   #askfile-mui-lha-help)
  804.          (default MUI_lha)
  805.       )
  806.    )
  807. ))
  808. (set MUI_dir (tackon CobbWeb_dir "MUI"))
  809. (debug "MUI_dir is: " MUI_dir)
  810. (set MUI_bit 4)
  811. (if (<> (getsize (tackon MUI_dir "Installer")) 61640)
  812.    (set packages (BITOR packages MUI_bit))
  813. )
  814.  
  815. ; AMosaic setup II
  816. (if (NOT (exists Mos_lha))
  817. (
  818.    (set Mos_lha 
  819.       (askfile 
  820.          (prompt #askfile-mos12-lha-prompt)
  821.          (help   #askfile-mos12-lha-help)
  822.          (default Mos_lha)
  823.       )
  824.    )
  825. ))
  826. (if (NOT (exists Mos_pch_lha))
  827. (
  828.    (set Mos_pch_lha 
  829.       (askfile 
  830.          (prompt #askfile-mos13-lha-prompt)
  831.          (help   #askfile-mos13-lha-help)
  832.          (default Mos_pch_lha)
  833.       )
  834.    )
  835. ))
  836. (set Mos_dir (tackon CobbWeb_dir (cat "Mosaic_" Mos_ver "_AmiTCP")))
  837. (set Mos_bit 8)
  838.  
  839. ; AMS (Installed with Mosaic)
  840. (if (NOT (exists AMS_lha))
  841. (
  842.    (set AMS_lha 
  843.       (askfile 
  844.          (prompt #askfile-ams-lha-prompt)
  845.          (help   #askfile-ams-lha-help)
  846.          (default AMS_lha)
  847.       )
  848.    )
  849. ))
  850. (set AMS_dir (tackon CobbWeb_dir "AMS"))
  851.  
  852. ; EdPlay (Installed with Mosaic)
  853. (if (NOT (exists ED_lha))
  854. (
  855.    (set ED_lha 
  856.       (askfile 
  857.          (prompt #askfile-ed-lha-prompt)
  858.          (help   #askfile-ed-lha-help)
  859.          (default ED_lha)
  860.       )
  861.    )
  862. ))
  863. (if (NOT (exists (tackon CobbWeb_dir "edplayer/EdPlayerJr.info")))
  864.    (set packages (BITOR packages Mos_bit))
  865. )
  866.  
  867. ; General CobbWeb setup
  868. (set CobbBin_dir (tackon CobbWeb_dir "bin"))
  869.  
  870. (set packages 
  871.       (askoptions 
  872.          (prompt #askoptions-packages-prompt)
  873.          (help   #askoptions-packages-help)
  874.          (choices "PPP" "AmiTCP" "MUI" "AMosaic")
  875.          (default packages)
  876.       )
  877. )
  878. (debug "packages is: " packages)
  879.  
  880. ;------- skip this for now -------
  881. ;(if 0
  882. ;(
  883.  
  884. ;=============================================================================
  885. ; install PPP
  886.  
  887. (debug "PPP_bit is: " PPP_bit)
  888.  
  889. (if (BITAND PPP_bit packages)
  890. (
  891.    (working (#working-makedir-ppp PPP_dir))
  892.    (if (NOT (exists (cat PPP_dir ".info") (noreq)))
  893.    (
  894.       (debug "creating directory " PPP_dir)
  895.       (makedir PPP_dir
  896.          (prompt #makedir-PPP_dir-prompt)
  897.          (help #makedir-PPP_dir-help)
  898.          (confirm)
  899.          (infos)
  900.       )
  901.    ))
  902.    (working (#working-unarchive-ppp PPP_dir))
  903.    (if (NOT (exists (tackon PPP_dir "REGISTRATION")))
  904.    (
  905.       (debug "Unarchiving PPP")
  906.       (run (cat "lha -r -a -x x " PPP_lha " " CobbWeb_dir "/"))
  907.    ))
  908.    (working (#working-unarchive-ppp-reg PPP_dir))
  909.    (if (AND PPP_reg (NOT (exists (tackon PPP_dir "devs/ppp.device.020"))))
  910.    (
  911.       (debug "Unarchiving PPPreg")
  912.       (run (cat "lha -r -a -x x " PPP_reglha " " CobbWeb_dir "/"))
  913.    ))
  914.    ; copy ppp.device
  915.    (working #working-copying-ppp-device)
  916.    (if (patmatch "680(0|1)0" amigaCPU)
  917.    (
  918.       (debug "68000/68010 detected")
  919.       (if (exists "S:PPP.key")
  920.          (set PPPsource "devs/ppp.device.000")
  921.       ; else
  922.          (set PPPsource "devs/ppp.device.000.eval")
  923.       )
  924.       (debug "copying " (tackon PPP_dir PPPsource))
  925.       (copylib
  926.          (prompt #copylib-pppdevice-prompt)
  927.          (help #copylib-pppdevice-help)
  928.          (source (tackon PPP_dir PPPsource))
  929.          (dest "devs:networks")
  930.          (newname "ppp.device")
  931.          (infos)
  932.          (confirm)
  933.       )
  934.    )
  935.    ;else  68020 and higher
  936.    (
  937.       (debug "68020/68030/68040 detected")
  938.       (if (exists "S:PPP.key")
  939.          (set PPPsource "devs/ppp.device.020")
  940.       ; else
  941.          (set PPPsource "devs/ppp.device.020.eval")
  942.       )
  943.       (debug "copying " (tackon PPP_dir PPPsource))
  944.       (copylib
  945.          (prompt #copylib-pppdevice-prompt)
  946.          (help #copylib-pppdevice-help)
  947.          (source (tackon PPP_dir PPPsource))
  948.          (dest "devs:networks")
  949.          (newname "ppp.device")
  950.          (infos)
  951.          (confirm)
  952.       )
  953.    ))
  954.    ; ask for serial.device and unit number
  955.    (working #working-checking-serial-device)
  956.    (debug "asking for serial device")
  957.    (set serdev
  958.       (askfile 
  959.          (prompt #askfile-serial-device-prompt)
  960.          (help   #askfile-serial-device-help)
  961.          (default "devs:serial.device")
  962.       )
  963.    )
  964.    (debug "serial device is: " serdev)
  965.    (working #working-checking-serial-unit)
  966.    (debug "asking for unit number")
  967.    (set sernum
  968.       (asknumber
  969.          (prompt #asknumber-serial-unit-prompt)
  970.          (help   #asknumber-serial-unit-help)
  971.          (range 0 128)
  972.          (default 0)
  973.       )
  974.    )
  975.    (debug "unit number is: " sernum)
  976.    (working #working-checking-serial-baud)
  977.    (debug "asking for baud rate")
  978.    (set serbaud
  979.       (asknumber
  980.          (prompt #asknumber-serial-baud-prompt)
  981.          (help   #asknumber-serial-baud-help)
  982.          (range 300 115200)
  983.          (default 9600)
  984.       )
  985.    )
  986.    (debug "baud rate is: " serbaud)
  987.    ; create ppp0.config
  988.    (working #working-creating-ppp-config)
  989.    (if (NOT (exists "env:sana2/ppp0.config"))
  990.    (
  991.       (debug "creating ppp0.config")
  992.       (textfile 
  993.          (prompt #textfile-ppp-config-prompt)
  994.          (help   #textfile-ppp-config-help)
  995.          (dest "env:sana2/ppp0.config")
  996.          (append (cat serdev " " sernum " " serbaud " 0.0.0.0 7WIRE "
  997.                       "DIALSCRIPT=" PPP_dialscript " CHAP=" PPP_chapfile))
  998.       )
  999.    ))
  1000.    ; copy ppp0.config to envarc:
  1001.    (working #working-copying-ppp-config)
  1002.    (if (NOT (exists "envarc:sana2/ppp0.config"))
  1003.    (
  1004.       (debug "copying ppp0.config to envarc:")
  1005.       (copyfiles
  1006.          (prompt #copyfiles-ppp-config-prompt)
  1007.          (help   #copyfiles-ppp-config-help)
  1008.          (source "env:sana2/ppp0.config")
  1009.          (dest "envarc:sana2")
  1010.          (confirm)
  1011.       )
  1012.    ))
  1013.    ; copy dialscript to PPP_dir
  1014.    (working #working-copying-dialscript)
  1015.    (if (NOT (exists PPP_dialscript))
  1016.    (
  1017.       (debug "copying dialscript to " PPP_dir)
  1018.       (copyfiles
  1019.          (prompt #copyfiles-dialscript-prompt)
  1020.          (help   #copyfiles-dialscript-help)
  1021.          (source "dialscript")
  1022.          (dest PPP_dir)
  1023.          (confirm)
  1024.       )
  1025.    ))
  1026.    ; create CHAP file
  1027.    (working #working-creating-chapfile)
  1028.    (if (NOT (exists PPP_chapfile))
  1029.    (
  1030.       (debug "creating CHAP file" PPP_chapfile)
  1031.       (textfile 
  1032.          (prompt #textfile-ppp-chapfile-prompt)
  1033.          (help   #textfile-ppp-chapfile-help)
  1034.          (dest PPP_chapfile)
  1035.          (append "his_hostid password your_hostid")
  1036.       )
  1037.    ))
  1038. ))
  1039.  
  1040. ;=============================================================================
  1041. ; install AmiTCP
  1042.  
  1043. (debug "TCP_bit is: " TCP_bit)
  1044.  
  1045. (if (BITAND TCP_bit packages)
  1046. (
  1047.    (working (#working-unarchive-tcp TCP_dir))
  1048.    (if (NOT (exists (tackon TCP_dir "serv/netfs-server")))
  1049.    (
  1050.       (debug "Unarchiving TCP")
  1051.       (run (cat "lha -r -a -x x " TCP_lha " " CobbWeb_dir "/"))
  1052.    ))
  1053.    ; copy our Installer to AmiTCP (for grins)
  1054.    (working (#working-copyfiles-installer TCP_dir))
  1055.    (if (<> (getsize (tackon TCP_dir "Installer")) 61640)
  1056.    (
  1057.       (copyfiles
  1058.          (prompt #copyfiles-AmiInstaller-prompt)
  1059.          (help   #copyfiles-AmiInstaller-help)
  1060.          (source "Installer")
  1061.          (dest TCP_dir)
  1062.          (confirm)
  1063.       )
  1064.    ))
  1065.    (user 1) ; so we can see the messages 
  1066.    (message #message-AmiTCP-installer)
  1067.    (debug (cat "Installer " (tackon TCP_dir "Install_AmiTCP") " APPNAME AmiTCP/IP MINUSER AVERAGE"))
  1068.    (set @execute-dir TCP_dir)
  1069.    ;(run (cat "Installer " (tackon TCP_dir "Install_AmiTCP") " APPNAME AmiTCP/IP MINUSER AVERAGE"))
  1070.    ;(message #message-AmiTCP-installer)
  1071.    (user user_level)
  1072.    ; need to add ppp0 entry to interfaces file
  1073.    (working #working-fixing-interfaces)
  1074.    (if (< (getsize TCP_interfaces) 5674)
  1075.    (
  1076.       (debug "adding ppp0 entry to interfaces file")
  1077.       (run 
  1078.          (cat "echo "
  1079.               "\"ppp0 DEV=DEVS:Networks/ppp.device UNIT=0 IPTYPE=33 NOARP P2P IPREQ=8 WRITEREQ=8\""
  1080.               " >> " TCP_interfaces)
  1081.       )
  1082.    ))
  1083.    ; copy libs/ixemul.llibrary to LIBS: (needed for patch program)
  1084.    (working #working-copylib-ixemul)
  1085.    (debug "copying ixemul.library to libs:")
  1086.    (copylib
  1087.       (prompt #copylib-ixemul-prompt)
  1088.       (help   #copylib-ixemul-help)
  1089.       (source "libs/ixemul.library")
  1090.       (dest "libs:")
  1091.       (confirm)
  1092.    )
  1093.    ; assign tmp: (needed for patch)
  1094.    (working #working-makeassign-tmp)
  1095.    (if (NOT (getassign "tmp"))
  1096.    (
  1097.       (makeassign "tmp" "t:")
  1098.    ))
  1099.    (if (= (getsize (tackon TCP_dir "bin/startnet")) 732)
  1100.    (
  1101.       ; apply patch to startnet
  1102.       (working #working-patching-startnet)
  1103.       (debug "patching AMITCP:bin/startnet")
  1104.       (set @execute-dir (tackon TCP_dir "bin"))
  1105.       (debug "executing from: " @execute-dir)
  1106.       (debug 
  1107.          (cat (tackon sourcePath "patch") " startnet " (tackon sourcePath "startnet.diff")
  1108.          )
  1109.       )
  1110.       (run 
  1111.          (cat (tackon sourcePath "patch") " startnet " (tackon sourcePath "startnet.diff")
  1112.          )
  1113.       )
  1114.    ))
  1115.    ; need to patch stopnet also
  1116.    (if (= (getsize (tackon TCP_dir "bin/stopnet")) 230)
  1117.    (
  1118.       ; apply patch to stopnet
  1119.       (working #working-patching-stopnet)
  1120.       (debug "patching AMITCP:bin/stopnet")
  1121.       (set @execute-dir (tackon TCP_dir "bin"))
  1122.       (debug "executing from: " @execute-dir)
  1123.       (debug 
  1124.          (cat (tackon sourcePath "patch") " stopnet " (tackon sourcePath "stopnet.diff")
  1125.          )
  1126.       )
  1127.       (run 
  1128.          (cat (tackon sourcePath "patch") " stopnet " (tackon sourcePath "stopnet.diff")
  1129.          )
  1130.       )
  1131.    ))
  1132.    (working #working-fixing-protection)
  1133.    ; add +s bit to amitcp:bin/startnet
  1134.    (protect (tackon TCP_dir "bin/startnet") "+s")
  1135.    ; add +s bit to amitcp:bin/stopnet
  1136.    (protect (tackon TCP_dir "bin/stopnet") "+s")
  1137. ))
  1138.  
  1139. ;=============================================================================
  1140. ; install MUI
  1141.  
  1142. (debug "MUI_bit is: " MUI_bit)
  1143.  
  1144. (if (BITAND MUI_bit packages)
  1145. (
  1146.    (working (#working-unarchive-mui MUI_dir))
  1147.    (if (NOT (exists (tackon MUI_dir "Rexx/WbMan.mrx.info")))
  1148.    (
  1149.       (debug (cat "lha -r -a -x x " MUI_lha " " CobbWeb_dir "/"))
  1150.       (set @execute-dir sourcePath)
  1151.       (run (cat "lha -r -a -x x " MUI_lha " " CobbWeb_dir "/"))
  1152.    ))
  1153.    ; copy our Installer to MUI (for grins)
  1154.    (working (#working-copyfiles-installer MUI_dir))
  1155.    (if (<> (getsize (tackon MUI_dir "Installer")) 61640)
  1156.    (
  1157.       (copyfiles
  1158.          (prompt #copyfiles-MUIInstaller-prompt)
  1159.          (help   #copyfiles-MUIInstaller-help)
  1160.          (source "Installer")
  1161.          (dest MUI_dir)
  1162.          (confirm)
  1163.       )
  1164.    ))
  1165.    (working #working-startup-MUI)
  1166.    (startup "MUI"
  1167.       (prompt "Some required commands will be added to your \"s:user-startup\" file.")
  1168.       (help @startup-help)
  1169.       (command "if exists \"" MUI_dir "\"\n")
  1170.       (command "   assign MUI: \"" MUI_dir "\"\n")
  1171.       (command "   if exists MUI:Libs\n")
  1172.       (command "      assign add LIBS: MUI:Libs\n")
  1173.       (command "   endif\n")
  1174.       (command "   if exists MUI:Locale\n")
  1175.       (command "      assign add LOCALE: MUI:Locale\n")
  1176.       (command "   endif\n")
  1177.       (command "   version >nil: exec.library 39\n")
  1178.       (command "   if not warn\n")
  1179.       (command "      if exists MUI:Docs\n")
  1180.       (command "         if exists HELP:dummy ; do not remove\n")
  1181.       (command "         endif                ; this entry!\n")
  1182.       (command "         assign add HELP: MUI:Docs\n")
  1183.       (command "      endif\n")
  1184.       (command "   endif\n")
  1185.       (command "endif")
  1186.    )
  1187. ))
  1188.  
  1189. ;))
  1190. ;------- end of skipped section -------
  1191.  
  1192. ;=============================================================================
  1193. ; install AMosaic
  1194.  
  1195. (debug "Mos_bit is: " Mos_bit)
  1196.  
  1197. (if (BITAND Mos_bit packages)
  1198. (
  1199.    (working (#working-makedir-mos Mos_dir))
  1200.    (if (NOT (exists (cat Mos_dir ".info") (noreq)))
  1201.    (
  1202.       (debug "creating directory " Mos_dir)
  1203.       (makedir Mos_dir
  1204.          (prompt #makedir-mos-prompt)
  1205.          (help   #makedir-mos-help)
  1206.          (confirm)
  1207.          (infos)
  1208.       )
  1209.    ))
  1210.    (working (#working-unarchive-mos12 Mos_dir))
  1211.    (if (NOT (exists (tackon Mos_dir "Rexx/soxaudio.rexx")))
  1212.    (
  1213.       (debug (cat "lha -r -a -x x " Mos_lha " " CobbWeb_dir "/"))
  1214.       (set @execute-dir sourcePath)
  1215.       (run (cat "lha -r -a -x x " Mos_lha " " CobbWeb_dir "/"))
  1216.    ))
  1217.    (working (#working-unarchive-mos13 Mos_dir))
  1218.    (if (NOT (exists (tackon Mos_dir "Amosaic.info")))
  1219.    (
  1220.       (debug (cat "lha -r -a -x x " Mos_pch_lha " " Mos_dir "/"))
  1221.       (set @execute-dir sourcePath)
  1222.       (run (cat "lha -r -a -x x " Mos_pch_lha " " Mos_dir "/"))
  1223.    ))
  1224.    ; copy ENVARC drawer to ENV: and ENVARC:
  1225.    (working #working-copying-mos-envarc)
  1226.    (if (NOT (exists "envarc:Mosaic/prefs.info"))
  1227.    (
  1228.       (debug "copying " (tackon Mos_dir "envarc") " to envarc:")
  1229.       (copyfiles
  1230.          (prompt #copyfiles-mos-envarc-prompt)
  1231.          (help   #copyfiles-mos-envarc-help)
  1232.          (source (tackon Mos_dir "envarc"))
  1233.          (dest "envarc:")
  1234.          (all)
  1235.          (infos)
  1236.          (confirm)
  1237.       )
  1238.    ))
  1239.    (working #working-copying-mos-env)
  1240.    (if (NOT (exists "env:Mosaic/prefs.info"))
  1241.    (
  1242.       (debug "copying " (tackon Mos_dir "envarc") " to env:")
  1243.       (copyfiles
  1244.          (prompt #copyfiles-mos-env-prompt)
  1245.          (help   #copyfiles-mos-env-help)
  1246.          (source (tackon Mos_dir "envarc"))
  1247.          (dest "env:")
  1248.          (all)
  1249.          (infos)
  1250.          (confirm)
  1251.       )
  1252.    ))
  1253.    ; copy REXX drawer to REXX:
  1254.    (working #working-copying-mos-rexx)
  1255.    (if (NOT (exists "rexx:soxaudio.rexx"))
  1256.    (
  1257.       (debug "copying rexx to rexx:")
  1258.       (copyfiles
  1259.          (prompt #copyfiles-mos-rexx-prompt)
  1260.          (help   #copyfiles-mos-rexx-help)
  1261.          (source (tackon Mos_dir "rexx"))
  1262.          (dest "rexx:")
  1263.          (all)
  1264.          (infos)
  1265.          (confirm)
  1266.       )
  1267.    ))
  1268.    ; set NNTPSERVER to server's IP address
  1269.    ; patch mailcap
  1270.    ; set MUI preferences to interleaved
  1271.    ; ------- Mosaic datatypes -------
  1272.    ; ZGIF
  1273.    (working #working-unarchive-zgif)
  1274.    (if (NOT (exists "devs:datatypes/GIF.info"))
  1275.    (
  1276.       (set @execute-dir sourcePath)
  1277.       (debug (cat "lha -r -a -x x " GIF_lha " sys:classes/datatypes/ gif.datatype"))
  1278.       (run (cat "lha -r -a -x x " GIF_lha " sys:classes/datatypes/ gif.datatype"))
  1279.       (debug (cat "lha -r -a -x x " GIF_lha " devs: Datatypes/GIF*"))
  1280.       (run (cat "lha -r -a -x x " GIF_lha " devs: Datatypes/GIF*"))
  1281.    ))
  1282.    ; AMS
  1283.    (working #working-unarchive-ams)
  1284.    (if (NOT (exists (tackon CobbWeb_dir "AMS/readme")))
  1285.    (
  1286.       (set @execute-dir sourcePath)
  1287.       (debug (cat "lha -r -a -x x " AMS_lha " " CobbWeb_dir "/"))
  1288.       (run (cat "lha -r -a -x x " AMS_lha " " CobbWeb_dir "/"))
  1289.    ))
  1290.    (working #working-copylib-ams)
  1291.    (if (NOT (exists "devs:datatypes/X-Bitmap.info"))
  1292.    (
  1293.       ; Install the classes
  1294.       (debug "copying AMS classes to SYS:Classes/Datatypes/")
  1295.       (copylib
  1296.          (prompt #copylib-sunau-prompt)
  1297.          (help   #copylib-sunau-help)
  1298.          (source (tackon AMS_dir "classes/datatypes/sunau.datatype"))
  1299.          (dest "sys:Classes/DataTypes")
  1300.          (confirm)
  1301.       )
  1302.       (copylib
  1303.          (prompt #copylib-xbm-prompt)
  1304.          (help   #copylib-xbm-help)
  1305.          (source (tackon AMS_dir "classes/datatypes/xbm.datatype"))
  1306.          (dest "sys:Classes/DataTypes")
  1307.          (confirm)
  1308.       )
  1309.       (copylib
  1310.          (prompt #copylib-pic-prompt)
  1311.          (help   #copylib-pic-help)
  1312.          (source (tackon AMS_dir "classes/datatypes/picture.datatype"))
  1313.          (dest "sys:Classes/DataTypes")
  1314.          (confirm)
  1315.       )
  1316.       ; Install the descriptors
  1317.       (debug "copying AMS datatypes to DEVS:Datatypes/")
  1318.       (copyfiles
  1319.          (prompt #copyfiles-ams-prompt)
  1320.          (help   #copyfiles-ams-help)
  1321.          (source (tackon AMS_dir "devs"))
  1322.          (dest "DEVS:")
  1323.          (all)
  1324.          (infos)
  1325.          (confirm)
  1326.       )
  1327.    ))
  1328.    ; EdPlayer
  1329.    (working #working-unarchive-edplay)
  1330.    (if (NOT (exists (tackon CobbWeb_dir "edplayer/EdPlayerJr.info")))
  1331.    (
  1332.       (set @execute-dir sourcePath)
  1333.       (debug (cat "lha -r -a -x x EdPlay.lha " CobbWeb_dir "/"))
  1334.       (run (cat "lha -r -a -x x EdPlay.lha " CobbWeb_dir "/"))
  1335.    ))
  1336.    ; patch mailcap
  1337.    ; Tell the system about the new descriptors
  1338.    (debug "C:AddDataTypes Refresh")
  1339.    (run "C:AddDataTypes Refresh")
  1340. ))
  1341.  
  1342. ; muck with s:user-startup
  1343. (debug "modifying user-startup")
  1344. (startup "CobbWeb" 
  1345.    (prompt #startup-add-path-prompt)
  1346.    (help   #startup-add-path-help)
  1347.    (command (cat "path " (tackon PPP_dir "bin") " add\n"))
  1348.    (command (cat "path " Mos_dir " add\n"))
  1349.    (command (cat "path " (tackon CobbWeb_dir "edplayer") " add\n"))
  1350.    (command "setenv PAGER more\n")
  1351.    (command (cat "assign tmp: t:\n"))
  1352.    (command (cat "assign Mosaic: " (tackon Mos_dir "docs") "\n"))
  1353.    (command (cat "assign CobbWeb: " CobbWeb_dir "\n"))
  1354.    (command (cat "assign HOME: " CobbWeb_dir "\n"))
  1355.    ; set NNTPSERVER to server's IP address
  1356. )
  1357.  
  1358. (exit (cat "That's as much as this script currently performs.  Now you will have to:\n"
  1359.            "(1) Run the AmiTCP Installation in the " TCP_dir " directory.\n"
  1360.            "(2) Edit the dialscript file in the " PPP_dir " directory.  "
  1361.            "You may need to look at the PPP documentation to perform this modification.\n"
  1362.            "(3) Reboot your Amiga!  "
  1363. ))
  1364.  
  1365.  
  1366.